<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<%
dim conn
dim connstr
dim db
db="1000vdb.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr

ClassID=request.QueryString("ClassID")
sql="select ID,ClassName from ProductClass where ParentID="&ClassID&" order by Orders"
set rsT1 = conn.execute(sql)
do while not rsT1.eof
%>
<span style="float:left; width:143px;">
<%=rsT1(1)%>
<select name="STypeID" multiple="multiple" class="input_3" style="height:100px; width:120px;">
	<%
	sql="select ID,ClassName from ProductClass where ParentID="&rsT1(0)&" order by Orders"
	set rsT2 = conn.execute(sql)
	do while not rsT2.eof
'		if instr(","&TypeId_F&",",","&rsT2(0)&",")>0 then
'			selected="selected"
'		else
'			selected=""
'		end if
	%>
	<option value="<%=rsT2(0)%>" <%=selected%>><%=rsT2(1)%></option>
	<%
		rsT2.movenext
	loop
	rsT2.close
	set rsT2 = nothing
	%>
</select>
</span>
<%
	rsT1.movenext
loop
rsT1.close
set rsT1 = nothing
%>
<br/>按住Ctrl键+鼠标左键实现多选
<%
response.End()
%>